Imports System
Imports System.Collections.Generic
Imports System.Text

' Provides easy and central access to user configuration settings.
Friend NotInheritable Class SettingsWrapper
    Private Shared _settings As Settings

    ' Load settings.
    Shared Sub New()
        _settings = New Settings()
    End Sub

    ' Prevent direct instantiation.
    Private Sub New()
    End Sub

    Public Shared Property FadePauseInterval() As Integer
        Get
            Return _settings.FadePauseInterval
        End Get
        Set(ByVal value As Integer)
            If value <= 0 Then
                Throw New ArgumentException(ResourcesWrapper.ValueGreaterThanZeroText)
            End If
            _settings.FadePauseInterval = value
            _settings.Save()
        End Set
    End Property
End Class